home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PASANS.ZIP
/
CH04_1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
477b
|
35 lines
(* Chapter 4 - Programming exercise 1 *)
program List_Numbers;
var Index : integer;
begin
for Index := 1 to 12 do begin
Write(Index:8);
if (Index = 10) then
Write(' October is my birth month.');
Writeln;
end;
end.
{ Result of execution
1
2
3
4
5
6
7
8
9
10 October is my birth month.
11
12
}